home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 January: Mac OS SDK / Dev.CD Jan 99 SDK1.toast / Development Kits / AppleScript / Development Tools / Sample Code / 7Edit 3.1 / Sources / SVAERevert.c < prev    next >
Encoding:
Text File  |  1995-11-20  |  3.6 KB  |  162 lines  |  [TEXT/CWIE]
  1. // SVAERevert.c
  2. //
  3. // 7Edit 3.1d1. Original version by Jon Lansdell and Nigel Humphreys.
  4. // 3.1 updates by Greg Sutton.
  5. // ©Apple Computer Inc 1995, all rights reserved.
  6.  
  7. #include "SVAERevert.h"
  8.  
  9. #include "SVEditWindow.h"        // for DPtrFromWindowPtr()
  10. #include "SVEditFile.h"
  11.  
  12. #include "SVEditAEUtils.h"
  13. #include "SVAETextUtils.h"
  14. #include "SVAEAccessors.h"
  15. #include "SVAEDelete.h"
  16.  
  17. #pragma segment File
  18.  
  19.  
  20. // -----------------------------------------------------------------------
  21. //    Name:         DoRevert
  22. //    Purpose:    Handles the Revert AppleEvent.
  23. // -----------------------------------------------------------------------
  24.  
  25. pascal OSErr DoRevert(const AppleEvent    *theAppleEvent,
  26.                             AppleEvent     *reply,
  27.                             long        handlerRefCon)
  28. { 
  29. #pragma unused (reply, handlerRefCon)
  30.  
  31.     AEDesc            directObj = {typeNull, NULL};
  32.     WindowToken        aWindowToken;
  33.     OSErr            err;
  34.     
  35.         // pick up the direct object
  36.     err = AEGetParamDesc(theAppleEvent,  keyDirectObject, typeWildCard, &directObj);
  37.     
  38.     err = GotRequiredParams(theAppleEvent);
  39.     if (noErr != err) goto done;
  40.     
  41.     if (typeNull != directObj.descriptorType)
  42.         err = RevertDesc(&directObj);
  43.     else if (FrontWindow())                        // If no direct object given, default
  44.     {                                            // to the front window.
  45.         aWindowToken.tokenWindow = FrontWindow();
  46.         err = RevertWindowToken(&aWindowToken);
  47.     }
  48.     else
  49.         err = errAENoSuchObject;
  50.         
  51. done:
  52.     if (directObj.dataHandle) 
  53.         AEDisposeDesc(&directObj);
  54.         
  55.     return(err);
  56. } // DoRevertWindow
  57.  
  58.  
  59. OSErr     RevertWindowToken(WindowToken* theToken)
  60. {
  61.     DPtr            docPtr;
  62.     TextToken        aTextToken;
  63.     OSErr            err;
  64.     
  65.     docPtr = DPtrFromWindowPtr(theToken->tokenWindow);
  66.     
  67.     if (! docPtr)
  68.         return(errAENoSuchObject);
  69.  
  70.                         // Get a token for all the text in the window
  71.     err = TextTokenFromWindowToken(theToken, &aTextToken);
  72.     if (noErr != err) goto done;
  73.                         // Delete all the text
  74.     err = DeleteTextToken(&aTextToken);
  75.     if (noErr != err) goto done;
  76.  
  77.     if (docPtr->everSaved) 
  78.     {
  79.         err = GetFileContents(docPtr->theFSSpec, docPtr);
  80.         if (noErr != err) goto done;
  81.  
  82.         ResizeWindow(docPtr);
  83.         docPtr->dirty = false;
  84.     }
  85.  
  86.     DoUpdate(docPtr->theWindow);
  87.  
  88. done:
  89.     return(err);
  90. }
  91.  
  92.  
  93. OSErr    RevertWindowDesc(AEDesc* windowDesc)
  94. {
  95.     WindowToken        aWindowToken;
  96.     Size            actualSize;
  97.     OSErr            err;
  98.  
  99.     if (typeMyWndw != windowDesc->descriptorType)
  100.         return(errAETypeError);
  101.         
  102.     GetRawDataFromDescriptor(windowDesc, (Ptr)&aWindowToken, sizeof(aWindowToken), &actualSize);
  103.  
  104.     err = RevertWindowToken(&aWindowToken);
  105.     
  106.     return(err);
  107. }
  108.  
  109.  
  110. OSErr    RevertDesc(AEDesc* aDesc)
  111. {
  112.     AEDesc        revertDesc = {typeNull, NULL},
  113.                 windowDesc = {typeNull, NULL},
  114.                 itemDesc = {typeNull, NULL};
  115.     long        itemCount,
  116.                 index;
  117.     DescType    theAEKeyword;
  118.     OSErr        err;
  119.     
  120.     if (typeObjectSpecifier == aDesc->descriptorType)
  121.         err = AEResolve(aDesc, kAEIDoMinimum, &revertDesc);
  122.     else
  123.         err = AEDuplicateDesc(aDesc, &revertDesc);
  124.         
  125.     if (noErr != err) goto done;
  126.     
  127.     switch (revertDesc.descriptorType)
  128.     {
  129.         case typeAEList:
  130.             err = AECountItems(&revertDesc, &itemCount);
  131.             if (noErr != err) goto done;
  132.             
  133.             for (index = 1; index <= itemCount; index++)    // Do front back order
  134.             {
  135.                 err = AEGetNthDesc(&revertDesc, index, typeWildCard, &theAEKeyword, &itemDesc);
  136.                 if (noErr != err) goto done;
  137.                 
  138.                 err = RevertDesc(&itemDesc);    // Call recursively
  139.                 if (noErr != err) goto done;
  140.  
  141.                 if (itemDesc.dataHandle)
  142.                     AEDisposeDesc(&itemDesc);
  143.             }
  144.             break;
  145.             
  146.         default:
  147.             err = AECoerceDesc(&revertDesc, typeMyWndw, &windowDesc);
  148.             if (noErr != err) goto done;
  149.             err = RevertWindowDesc(&windowDesc);
  150.     }
  151.     
  152. done:
  153.     if (revertDesc.dataHandle)
  154.         AEDisposeDesc(&revertDesc);
  155.     if (windowDesc.dataHandle)
  156.         AEDisposeDesc(&windowDesc);
  157.     if (itemDesc.dataHandle)
  158.         AEDisposeDesc(&itemDesc);
  159.     
  160.     return(err);
  161. }
  162.